home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 163 / 163.d81 / shooting stars (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  82 lines
  1. 5 poke55,.:poke56,56:clr
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 15 poke53280,0:poke53281,0:print"[147]"
  4. 16 poke53371,0
  5. 25 poke53272,31
  6. 28 ad=49152
  7. 29 sysad:sysad+12
  8. 30 print"[147]":sysad+9,0
  9. 80 rd=180/(NULL)
  10. 85 c=4*rd^2
  11. 90 l=0:w=0:q=0
  12. 95 k=0.003667
  13. 100 n=1
  14. 105 x=0
  15. 110 sysad+9,1
  16. 115 bx$="[129][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
  17. 120 print"[147][129][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
  18. 125 printbx$""tab(38)bx$
  19. 130 print"[129][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
  20. 135 print""tab(11)"[150]-[159][211][200][207][207][212][201][206][199] [211][212][193][210][211][150]-"
  21. 140 print:printtab(4)"[158]f/[210]atio for [204]ens: ";:l9%=4:gosub355:fr=q9
  22. 142 sysad+9,2
  23. 145 printtab(4)"[158][198]ocal length (mm): ";:l9%=4:gosub355:fl=q9
  24. 147 sysad+9,2
  25. 150 ap=fl/fr
  26. 155 print:printtab(4)"[158][198]ilm/[201]mage format"
  27. 160 printtab(5)"(1)[153] 35 mm"
  28. 165 printtab(5)"(2)[153] 120 square"
  29. 170 printtab(5)"(3)[153] 4 x 5 inch"
  30. 175 printtab(5)"(4)[153] 8 x 10 inch"
  31. 180 printtab(5)"(5)[153] [211]chmidt [195]amera"
  32. 185 printtab(5)"(6)[153] [198]isheye (180) degrees"
  33. 188 poke198,0
  34. 190 getq$:ifq$<"1"orq$>"6"then190
  35. 192 sysad+9,2
  36. 200 onval(q$)goto225,230,235,240,245,255
  37. 225 l=36:w=24:goto275
  38. 230 l=55:w=55:goto275
  39. 235 l=119:w=94:goto275
  40. 240 l=240:w=190:goto275
  41. 245 print:printtab(5)"[158][211]ky area (sq/[219]): ";:l9%=5:gosub355:s=q9
  42. 247 sysad+9,2
  43. 250 goto300
  44. 255 s=20626:goto285
  45. 265 rem compute sky area covered
  46. 270 rem by rectangular film frame
  47. 275 s=c*atn(0.5*l/fl)*atn(0.5*w/fl)
  48. 280 ifs>50thens=int(s+0.5)
  49. 285 printtab(1)"[156][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]":sysad+9,3
  50. 290 print:printtab(2)"[159][211]ky area covered (sq/[219]):";s
  51. 300 rem now, evaluate mckinley formula
  52. 305 e=k*ap^2*s/((1+x)*fl^n)
  53. 310 print:printtab(2)"[159][208]hoto. [197]fficiency:";e:gosub505
  54. 315 gosub3000
  55. 320 goto110
  56. 355 q9$="":poke198,.
  57. 360 geta$
  58. 365 poke646,rnd(1)*15+1:print"*[157]";:ifa$=""then360
  59. 370 ifa$=chr$(13)thenprint" ":q9=val(q9$):return
  60. 375 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto397
  61. 380 iflen(q9$)>=l9%thensysad+9,2:goto360
  62. 385 if(a$>="0"anda$<="9")ora$="."then390
  63. 387 goto360
  64. 390 q9$=q9$+a$
  65. 395 print""a$;:goto360
  66. 397 print" [157][157] [157]";:goto360
  67. 505 ife<10thenprinttab(3)"[150][206]ot the best equipment to use!":return
  68. 510 ife>10ande<20thenprinttab(2)"[150][210]educe focal length and/or f/stop!":return
  69. 515 ife>20ande<55thenprinttab(3)"[150][206]ot [212]oo [194]ad! [217]ou can do better!":return
  70. 517 ife>55ande<300thenprinttab(3)"[150][207]ptimal equipment for the job!":return
  71. 520 ife>300thenprinttab(3)"[150][197]xceptional equipment. [195]lick away!":return
  72. 3000 poke214,19:print:printtab(8)"[159](1[159]) [212]ry another one
  73. 3010 [153][163]8)"open(2open) (NULL)o (NULL)(NULL)right$(NULL)val(NULL)(NULL)val (NULL)enu
  74. 3020 poke198,0
  75. 3030 geta$:ifa$<"1"ora$>"2"then3030
  76. 3040 ifa$="1"thenreturn
  77. 3050 sysad+15
  78. 3060 print"[147]load"chr$(34)"b.universe"chr$(34)","dv
  79. 3070 print"run28"
  80. 3080 poke631,13:poke632,13:poke198,2:end
  81. 10000 d=peek(186):n$="shooting stars":open15,d,15,"s0:"+n$:close15:saven$,d:end
  82.